30 REM UNCRUNCH DEMO
40 POKE 53280,11:POKE 53281,0
50 IF A=0 THEN A=1:LOAD"UNCRUNCHER",8,1:REM UNCRUNCH ML
52 CLR:REM FIXES LOAD 8,1
55 GOSUB 700
57 PO=1033+(4*40)
58 READ N:IF N>8 THEN N=8
60 FOR X=1 TO N:READ F$(X),F1$(X):NEXT
65 X=1:T=1
70 PRINT"[154][147][158]"TAB(5)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
80 PRINTTAB(5)" [199]RAPHIC [198]ILE [213]NCRUNCHER [196]EMO "
90 PRINT" [208]LEASE CHOOSE PICTURE: [159]"
100 PRINT:FORL=1 TO N
110 PRINT""F$(L);
150 PRINT:PRINT:NEXT
160 PRINT""TAB(12)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
165 PRINTTAB(12)" [198]8 [198]OR [213]P[212]IME "
167 POKE PO+(X*80),62:POKE PO+(X*80)+21,60:GOSUB 500
170 GET C$:GOSUB 400
175 IF C$="" THEN 170
178 POKE 198,0
180 IF C$="[140]" THEN SYS (8*4096)
184 IF C$="[145]" THEN X=X-1
186 IF C$="" THEN X=X+1
188 IF C$=CHR$(13) THEN 200
190 IF X=0 THEN X=N
192 IF X=N+1 THEN X=1
193 IF X=T THEN 170
197 GOSUB 500
198 T=X
199 GOTO 170
200 SYS 49152+12: REM BLANK SCREEN
210 SYS 49152+6 : REM SET MULTI-COLOR
220 OPEN 15,8,15
230 OPEN 2,8,2,"0:"+F1$(X)+",P,R"
235 GOSUB 600
240 SYS 49152
250 CLOSE 2
252 CLOSE 15
255 SYS 49152+15:REM ENABLE SCREEN
257 POKE 198,0
260 GET A$:A=PEEK(56320) AND 16
265 IF A$="" AND A<>0 THEN 260
270 SYS 49152+9 : REM RESET TO NORMAL TEXT
275 POKE 53280,11: POKE 53281,0
280 GOTO 70
400 P=NOT PEEK(56320) AND 31
410 IF P AND 1 THEN C$="[145]"
420 IF P AND 2 THEN C$=""
430 IF P AND 16 THEN C$=CHR$(13)
440 RETURN
500 REM PRINT REVERSE BAR
510 P=PO+(T*80)+1
520 H=INT(P/256):L=P-(H*256)
530 POKE 251,L:POKE 252,H
540 P=PO+(X*80)+1
550 H=INT(P/256):L=P-(H*256)
560 POKE 253,L:POKE 254,H
562 POKE PO+(T*80),32:POKE PO+(T*80)+21,32
564 POKE PO+(X*80),62:POKE PO+(X*80)+21,60
570 SYS (4*4096)
580 RETURN
600 INPUT#15,ER$,EM$,ET$,ES$
610 IF ER$<"20" THEN RETURN
615 SYS 49161:SYS 49167
620 CLOSE 2:CLOSE 15
630 PRINT"[147] [196]ISK ERROR:"
640 PRINT""ER$", "EM$","ET$","ES$
650 GET A$:IF A$="" THEN 650
660 GOTO 70
700 FOR I=0 TO 22
710 READ D:POKE 16384+I,D:NEXT
720 RETURN
750 DATA 160,18,177,251,41,127,145,251
760 DATA 136,208,247,160,18,177,253,9
770 DATA 128,145,253,136,208,247,96
800 DATA  3
820 DATA "[205]URDER [195]RUISE",CRUISE
830 DATA "[203]ARATE",KARATE
840 DATA "[195]OMPACT [196]ISC",DISC